* FILE NAME : NATIONAD.PRG
*

DO WHILE homcount=SPACE(14) .AND. LASTKEY()<>27
   STORE 0 TO CNT,CR,cnt1,cr1
   SELE 4
   SET EXCLU OFF
   use &dr&f4
   GO TOP
   do while .NOT. EOF()
      IF NAT_FRE='1'
         CNT=CNT+1
      ENDIF
      skip
   ENDDO
   CNT=CNT+5
   DECLARE FLN[CNT]
   SELE 4
   GO TOP
   do while .NOT. EOF()
      IF NAT_FRE='1'
         CR=CR+1
         FLN[CR]=COUNTRY
      ENDIF
      SKIP
   ENDDO
   INKEY()
   set colo to w+/G,gr+/r
   @ 12,14 clea to 23,32
   @ 12,14 to 23,32 double
   pilih=achoice(13,16,22,30,FLN)
   IF LASTKEY()=13
      homcount=FLN[PILIH]
   else
      set cons off
      wait ' '
      set cons on
      loop
   ENDIF
endDO

